#########################################################################################
# Package       TestModule::ThreadSimple
# Description:  Simple Thread Handler
# Created       Tue Mar 30 01:22:26 2010
# SVN Id        $Id: ThreadSimple.pm 2 2010-03-30 07:30:05Z mark.dootson $
# Copyright:    Copyright (c) 2010 Mark Dootson
# Licence:      This program is free software; you can redistribute it 
#               and/or modify it under the same terms as Perl itself
#########################################################################################

package TestModule::ThreadSimple;

#########################################################################################

use strict;
use warnings;
use Wx::Perl::SimpleThread::Thread;
use base qw( Wx::Perl::SimpleThread::Thread );

sub do_request {
    my ($class, $paramref) = @_;
    my $numberback = $paramref;
    $class->queue_data($numberback);
    return $numberback +5;
}


1;
